home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mathtu1a / setupfrm.frm < prev    next >
Text File  |  1999-10-07  |  4KB  |  153 lines
  1. VERSION 5.00
  2. Begin VB.Form SetupFrm 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Math Tutor Setup"
  5.    ClientHeight    =   1575
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   3735
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1575
  13.    ScaleWidth      =   3735
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton OK 
  17.       Caption         =   "OK"
  18.       Height          =   255
  19.       Left            =   120
  20.       TabIndex        =   9
  21.       ToolTipText     =   "OK"
  22.       Top             =   1200
  23.       Width           =   3495
  24.    End
  25.    Begin VB.OptionButton OptionD 
  26.       Caption         =   "Hard"
  27.       Height          =   255
  28.       Index           =   2
  29.       Left            =   2400
  30.       TabIndex        =   8
  31.       ToolTipText     =   "Hard"
  32.       Top             =   840
  33.       Width           =   1215
  34.    End
  35.    Begin VB.OptionButton OptionD 
  36.       Caption         =   "Medium"
  37.       Height          =   255
  38.       Index           =   1
  39.       Left            =   1200
  40.       TabIndex        =   7
  41.       ToolTipText     =   "Medium"
  42.       Top             =   840
  43.       Value           =   -1  'True
  44.       Width           =   1095
  45.    End
  46.    Begin VB.OptionButton OptionD 
  47.       Caption         =   "Easy"
  48.       Height          =   255
  49.       Index           =   0
  50.       Left            =   120
  51.       TabIndex        =   6
  52.       ToolTipText     =   "Easy"
  53.       Top             =   840
  54.       Width           =   975
  55.    End
  56.    Begin VB.CheckBox OptionT 
  57.       Caption         =   "Roots"
  58.       Height          =   255
  59.       Index           =   5
  60.       Left            =   2400
  61.       TabIndex        =   5
  62.       ToolTipText     =   "Roots"
  63.       Top             =   480
  64.       Width           =   1215
  65.    End
  66.    Begin VB.CheckBox OptionT 
  67.       Caption         =   "Exponents"
  68.       Height          =   255
  69.       Index           =   4
  70.       Left            =   1200
  71.       TabIndex        =   4
  72.       ToolTipText     =   "Exponents"
  73.       Top             =   480
  74.       Width           =   1095
  75.    End
  76.    Begin VB.CheckBox OptionT 
  77.       Caption         =   "Division"
  78.       Height          =   255
  79.       Index           =   3
  80.       Left            =   120
  81.       TabIndex        =   3
  82.       ToolTipText     =   "Division"
  83.       Top             =   480
  84.       Width           =   1095
  85.    End
  86.    Begin VB.CheckBox OptionT 
  87.       Caption         =   "Multiplication"
  88.       Height          =   255
  89.       Index           =   2
  90.       Left            =   2400
  91.       TabIndex        =   2
  92.       ToolTipText     =   "Multiplication"
  93.       Top             =   120
  94.       Width           =   1215
  95.    End
  96.    Begin VB.CheckBox OptionT 
  97.       Caption         =   "Subtraction"
  98.       Height          =   255
  99.       Index           =   1
  100.       Left            =   1200
  101.       TabIndex        =   1
  102.       ToolTipText     =   "Subtraction"
  103.       Top             =   120
  104.       Width           =   1215
  105.    End
  106.    Begin VB.CheckBox OptionT 
  107.       Caption         =   "Addition"
  108.       Height          =   255
  109.       Index           =   0
  110.       Left            =   120
  111.       TabIndex        =   0
  112.       ToolTipText     =   "Addition"
  113.       Top             =   120
  114.       Value           =   1  'Checked
  115.       Width           =   1095
  116.    End
  117. End
  118. Attribute VB_Name = "SetupFrm"
  119. Attribute VB_GlobalNameSpace = False
  120. Attribute VB_Creatable = False
  121. Attribute VB_PredeclaredId = True
  122. Attribute VB_Exposed = False
  123. 'Name:  Math Tutor
  124. 'Author:  InfraRed
  125. 'Contact Info:  ICQ #:   17948286
  126. '               E-Mail:  InfraRed@flashmail.com
  127. '----------------Code Starts Here------------------
  128.  
  129. Private Sub Form_Unload(Cancel As Integer) 'Unload the program
  130. Unload SetupFrm
  131. Unload TutorFrm
  132. Unload Me
  133. End
  134. End Sub
  135.  
  136. Private Sub OK_Click() 'Move on to the tutor
  137. TutorFrm.Show
  138. TutorFrm.Startup
  139. SetupFrm.Hide
  140. End Sub
  141.  
  142. Private Sub OptionT_Click(Index As Integer) 'The whole purpose of this is to make sure atleast one of the checkboxes is always selected
  143. Dim OneChecked As Boolean
  144. For i = 0 To 5
  145.   If OptionT(i).Value = 1 Then
  146.   OneChecked = True
  147.   End If
  148. Next i
  149. If OneChecked = False Then
  150. OptionT(Index).Value = 1
  151. End If
  152. End Sub
  153.